Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbdates / dates.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-05-08 | 16.2 KB | 570 lines

VERSION 2.00 Begin Form Calendar BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Caption = "Calendar" ClientHeight = 2700 ClientLeft = 1890 ClientTop = 2070 ClientWidth = 2745 ForeColor = &H00C0C0C0& Height = 3390 Icon = DATES.FRX:0000 Left = 1830 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 2700 ScaleWidth = 2745 Top = 1440 Width = 2865 Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 36 Left = 480 TabIndex = 40 Top = 2280 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 35 Left = 120 TabIndex = 39 Top = 2280 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 34 Left = 2280 TabIndex = 38 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 33 Left = 1920 TabIndex = 37 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 32 Left = 1560 TabIndex = 36 Top = 1980 Width = 375 End Begin SSCommand Command3D3 AutoSize = 1 'Adjust Picture Size To Button BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Left = 1740 Picture = DATES.FRX:0302 TabIndex = 33 Top = 2280 Width = 915 End Begin SSCommand Command3D2 AutoSize = 1 'Adjust Picture Size To Button BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Left = 840 Picture = DATES.FRX:0604 TabIndex = 32 Top = 2280 Width = 915 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 31 Left = 1200 TabIndex = 31 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 30 Left = 840 TabIndex = 30 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 29 Left = 480 TabIndex = 29 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 28 Left = 120 TabIndex = 28 Top = 1980 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 27 Left = 2280 TabIndex = 27 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 26 Left = 1920 TabIndex = 26 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 25 Left = 1560 TabIndex = 25 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 24 Left = 1200 TabIndex = 24 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 23 Left = 840 TabIndex = 23 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 22 Left = 480 TabIndex = 22 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 21 Left = 120 TabIndex = 21 Top = 1680 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 20 Left = 2280 TabIndex = 20 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 19 Left = 1920 TabIndex = 19 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 18 Left = 1560 TabIndex = 18 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 17 Left = 1200 TabIndex = 17 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 16 Left = 840 TabIndex = 16 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 15 Left = 480 TabIndex = 15 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 14 Left = 120 TabIndex = 14 Top = 1380 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 13 Left = 2280 TabIndex = 13 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 12 Left = 1920 TabIndex = 12 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 11 Left = 1560 TabIndex = 11 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 10 Left = 1200 TabIndex = 10 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 9 Left = 840 TabIndex = 9 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 8 Left = 480 TabIndex = 8 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 7 Left = 120 TabIndex = 7 Top = 1080 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 6 Left = 2280 TabIndex = 6 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 5 Left = 1920 TabIndex = 5 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 4 Left = 1560 TabIndex = 4 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 3 Left = 1200 TabIndex = 3 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 2 Left = 840 TabIndex = 2 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H00000000& Height = 315 Index = 1 Left = 480 TabIndex = 1 Top = 780 Width = 375 End Begin SSCommand DayButton BevelWidth = 1 Font3D = 0 'None ForeColor = &H000000C0& Height = 315 Index = 0 Left = 120 TabIndex = 0 Top = 780 Width = 375 End Begin SSPanel Panel3D1 BackColor = &H00C0C0C0& BevelInner = 1 'Inset BevelWidth = 2 Caption = "Panel3D1" Font3D = 0 'None ForeColor = &H00808080& Height = 2715 Left = 0 TabIndex = 34 Top = 0 Width = 2775 Begin SSPanel Panel3D2 Alignment = 2 'Left Justify - BOTTOM BackColor = &H00C0C0C0& BevelOuter = 1 'Inset BevelWidth = 2 Caption = " S M T W T F S" Font3D = 0 'None ForeColor = &H00800000& Height = 315 Left = 120 TabIndex = 41 Top = 480 Width = 2535 End Begin SSPanel MonthBox BackColor = &H00C0C0C0& BevelOuter = 1 'Inset BevelWidth = 2 Caption = "January" Font3D = 0 'None ForeColor = &H00800000& Height = 315 Left = 420 TabIndex = 35 Top = 120 Width = 1995 End End Begin Menu File Caption = "&File" Begin Menu Exit Caption = "E&xit" End End Begin Menu About Caption = "&About" End Sub About_Click () AboutForm.Show End Sub Sub Command3D2_Click () TheMonth = TheMonth - 1 If TheMonth = 0 Then TheMonth = 12 Theyear = Theyear - 1 End If FillMonth Calendar.MonthBox.Caption = Months(TheMonth) + Str$(Theyear) End Sub Sub Command3D3_Click () TheMonth = TheMonth + 1 If TheMonth = 13 Then TheMonth = 1 Theyear = Theyear + 1 End If FillMonth Calendar.MonthBox.Caption = Months(TheMonth) + Str$(Theyear) End Sub Sub DayButton_Click (Index As Integer) MsgBox "This is an event" End Sub Sub Exit_Click () End Sub Sub Form_Load () TheMonth = Month(Now) Theyear = Year(Now) ThisMonth = Month(Now) Dim I As Integer For I = 0 To 36 Calendar.DayButton(I).Caption = "" Next I Months(1) = "January" Months(2) = "February" Months(3) = "March" Months(4) = "April" Months(5) = "May" Months(6) = "June" Months(7) = "July" Months(8) = "August" Months(9) = "September" Months(10) = "October" Months(11) = "November" Months(12) = "December" Calendar.MonthBox.Caption = Months(TheMonth) + Str$(Theyear) Weekdays(1) = "Sunday" Weekdays(2) = "Monday" Weekdays(3) = "Tuesday" Weekdays(4) = "Wednesday" Weekdays(5) = "Thursday" Weekdays(6) = "Friday" Weekdays(7) = "Saturday" Jan = 31 Feb = 28 Mar = 31 Apr = 30 May = 31 Jun = 30 Jul = 31 Aug = 31 Sep = 30 Octr = 31 Nov = 30 Dec = 31 StartDay = 1 DOW = Weekday(DateSerial(TheMonth, Theyear, StartDay)) FillMonth End Sub